home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / qlmcw / winfiles.pak / GENIE.SRP < prev    next >
Encoding:
Text File  |  1996-01-08  |  861 b   |  49 lines
  1. /* script for GEnie */
  2.  
  3. char AccountNumber[40];
  4. char AccountPassword[40];
  5. char PhoneNumber[40];
  6.  
  7. main()
  8. {
  9.     Cls();
  10.     Echo("Please wait...\r\n", 16);
  11.     Echo("Logging on to GEnie\r\n", 21);
  12.     LocalEcho(1);
  13.     Data(7);
  14.     Parity('E');
  15.     Stop("1");
  16.  
  17.     StrCpy(GenieUser(), AccountNumber);
  18.     StrCpy(GeniePass(), AccountPassword);
  19.     if (!AccountNumber[0] || !AccountPassword[0])
  20.     {
  21.         Echo("Account information incomplete!\r\n");        
  22.         return;
  23.     }    
  24.     StrCpy(GeniePhone(), PhoneNumber);
  25.     if (PhoneNumber[0])
  26.     {
  27.         Dial(PhoneNumber);
  28.     }
  29.     else
  30.     {
  31.         Echo("No phone number specified in Services Setup!\r\n");
  32.         return;
  33.     }
  34.     Wait(2);
  35.     ScriptOut("HHH");
  36.     In("U", 30);
  37.     ScriptOut(GenieUser());
  38.     ScriptOut(",");
  39.     ScriptOut(GeniePass());
  40.     ScriptOut("\r");
  41. }
  42.  
  43. ScriptOut(char *string)
  44. {
  45.     Echo(string, StrLen(string));
  46.     Out(string, StrLen(string));
  47. }
  48.  
  49.